home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 5 / 005.d81 / palm reader (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  123 lines
  1. 100 print chr$(147)
  2. 101 forx=1to5:d$=d$+chr$(17):nextx
  3. 102 poke53280,1:poke53281,1:k=2
  4. 103 print chr$(14);chr$(8)
  5. 104 print chr$(144)
  6. 110 dim p$(61)
  7. 111 forx=1to61:readp$(x):nextx
  8. 130 goto155
  9. 140 for z=1to1000:nextz:return
  10. 155 if flagthen200
  11. 160 printd$:printspc(9);"[197][204][197][195][212][210][207][206][201][195][160][208][193][204][205][160][210][197][193][196][197][210]"
  12. 170 gosub140
  13. 200 rem
  14. 210 rem palm reader
  15. 215 rem
  16. 220 rem paul raymer
  17. 230 rem 3464 townhouse dr
  18. 240 rem las vegas nv 89121
  19. 250 rem
  20. 260 rem copyright (c) 1979,1984
  21. 261 rem
  22. 265 print chr$(147);chr$(9)
  23. 266 print chr$(9);chr$(142);chr$(8)
  24. 270 print d$
  25. 290 input"what is your name";n$
  26. 295 print chr$(147)
  27. 300 if n$=""then printchr$(147):t=t+1:ift=5then63000
  28. 301 if n$=""then 270
  29. 302 printchr$(9);chr$(14)
  30. 310 if len(n$)>24 then print"[200]ow about just two names!!!???":gosub140:goto265
  31. 320 if len(n$)<5then print"[211]uggest you use last name next time!":gosub140
  32. 330 m$=n$
  33. 340 x$="paulraymer"
  34. 350 if len(n$)<11thenn$=m$+n$+x$
  35. 360 print
  36. 431 gosub 140 :printchr$(147);d$:printchr$(14)
  37. 432 print"[208]lease place your palm next to the"
  38. 433 print"computer...think nice thoughts for a"
  39. 434 print"moment -- and then press f7[146]":print
  40. 435 printd$:print"  ([212]o change screen color press f1[146])"
  41. 436 get an$:ifan$=""then436
  42. 437 if an$=chr$(133)thenk=k+1:poke53280,k:poke53281,k:goto436
  43. 438 if an$<>chr$(136)then437
  44. 439 printchr$(147)d$;"[208]alm reading for ";:gosub 5000:print:gosub140:print
  45. 440 y=1:print"[210][207][205][193][206][212][201][195] [206][193][212][213][210][197]: ";
  46. 450 gosub940:gosub140
  47. 460 printtab(22)p$(i)
  48. 470 gosub140
  49. 480 y=2:print"[205][197][205][207][210][217][160][197][214][193][204][213][193][212][201][207][206]: ";
  50. 490 gosub940:gosub140
  51. 500 printtab(22) p$(i+7)
  52. 510 gosub140
  53. 520 y=3:print"[193][210][212][201][211][212][201][195][160][193][194][201][204][201][212][217]: ";
  54. 530 gosub940:gosub140
  55. 540 printtab(22)p$(i+14)
  56. 550 gosub140
  57. 560 y=4:print"[211][197][206][211][197][160][207][198][160][200][213][205][207][210]: ";
  58. 570 gosub940:gosub140
  59. 580 printtab(22)p$(i+7)
  60. 590 gosub140
  61. 600 y=5:print"[195][210][197][193][212][201][214][197][160][212][193][204][197][206][212]: ";
  62. 610 gosub940:gosub140
  63. 620 printtab(22)p$(i+14)
  64. 630 gosub140
  65. 640 y=6:print"[208][197][210][211][197][214][197][210][197][206][195][197] : ";
  66. 650 gosub940:gosub140
  67. 660 printtab(22)p$(i)
  68. 670 gosub140
  69. 680 y=7:print"[205][207][207][196][160][201][206][196][201][195][193][212][207][210]: ";
  70. 690 gosub940:gosub140
  71. 700 printtab(22)p$(i+21)
  72. 710 gosub140
  73. 720 y=8:print"[197][216][197][195][213][212][201][214][197][160][193][194][201][204][201][212][217]: ";
  74. 730 gosub940:gosub140
  75. 740 printtab(22)p$(i+14)
  76. 750 gosub140
  77. 760 y=9:print"[204][213][195][203][217][160][196][193][217]: ";
  78. 770 gosub940:gosub140
  79. 780 printtab(22)p$(i+28)
  80. 790 gosub140
  81. 800 y=10:print"[217][207][213][210][160][194][197][211][212][160][195][207][204][207][210]: ";
  82. 810 gosub940:gosub140
  83. 820 printtab(22)p$(i+35)
  84. 830 gosub140
  85. 840 y=10:print"[217][207][213][210][160][204][213][195][203][217][160][206][213][205][194][197][210]: ";
  86. 850 gosub940:gosub140
  87. 860 printtab(22)p$(i+42)
  88. 870 gosub140
  89. 880 y=10:print"[217][207][213][210][160][204][213][195][203][217][160][205][207][206][212][200]: ";
  90. 890 gosub940:gosub140
  91. 900 i=i+6:ifi>12theni=i-12
  92. 910 printtab(22)p$(i+49)
  93. 920 gosub140
  94. 930 print:print"[193]nother reading? ([217]es or [206]o)"
  95. 931 getan$:ifan$=""then931
  96. 935 if an$<>"y"then 63000
  97. 936 poke53280,k:poke53281,k:k=k+1:ifk>10thenk=1
  98. 937 flag=1:goto265
  99. 940 i$=mid$(n$,y,1)
  100. 950 i=asc(i$)-64
  101. 960 if i<0theni=i+32
  102. 970 i=int(i/4)+1
  103. 980 return
  104. 990 data "[214]ery [211]trong","[209]uite [211]trong","[211]trong","[193]verage","[211]o-[211]o","[215]eak","[206]one"
  105. 1000 data "[197]xcellent","[214]ery good","[209]uite good","[199]ood","[193]verage","[198]air"
  106. 1005 data "[206]eeds [201]mprovement"
  107. 1010 data "[214]ery [200]igh","[200]igh","[214]ery [199]ood","[193]bove [193]verage","[193]verage","[198]air","[204]ow"
  108. 1020 data "[213]npredictable","[212]empermental","[197]xciteable","[193]verage","[195]alm"
  109. 1025 data "[195]ool","[195]old"
  110. 1030 data "[205]onday","[212]uesday","[215]ednesday","[212]hursday","[198]riday","[211]aturday"
  111. 1035 data "[211]unday"
  112. 1040 data "[210]ed","[194]lue","[217]ellow","[208]urple","[199]reen","[207]range","[208]ink"
  113. 1050 data "1","2","3","5","7","9","11"
  114. 1060 data "[202]anuary","[198]ebruary","[205]arch","[193]pril","[205]ay","[202]une","[202]uly","[193]ugust"
  115. 1070 data "[211]eptember","[207]ctober","[206]ovember","[196]ecember"
  116. 5000 rem name changer
  117. 5010 for n=1tolen(m$)
  118. 5020 print chr$(asc(mid$(m$,n,1))+128);
  119. 5030 next n
  120. 5035 return
  121. 63000 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  122. 63005 poke631,13:poke632,13:poke198,2:end
  123.